﻿Imports System.ComponentModel
Imports NearAop

<AddNotifyPropertyChanged(IsTestEquals:=True)>
Public Class T01_属性变更通知

    Property MyProperty As Integer

    Public Sub Test()
        AddHandler TryCast(Me, INotifyPropertyChanged).PropertyChanged,
            Sub(s, e) Console.WriteLine($"属性{e.PropertyName}被修改")
        MyProperty += 1
    End Sub
End Class
